;Exam2013H25HPrg1 𐔒lɕϊ.txt
;-----------------------
MAIN START
	LAD GR1,M1
	CALL TOSEC
	ST GR0,SEC
	;-----------
	LAD GR1,MINSEC
	CALL TOSEC
	ST GR0,SEC2
	RET
M1 DC '2'
M2 DC '0'
S1 DC '3'
S2 DC '8'
SEC DS 1
	;----------
MINSEC DC '2538'
SEC2 DS 1
	END
;------------------
;ႦΐQORWb𐔒lPQRWbɕϊB
TOSEC START
	RPUSH
	LD GR5,=0
	LD GR2,=4      ;[v
	LAD GR3,VALUE1
LOOP1 LD GR0,0,GR1  ;fqO|||Ԃ̈ꌅ
	AND GR0,=#000F  ;lo
	ADDA GR0,GR5
	SUBA GR2,=1
	JZE FIN
	LD GR4,0,GR3  ;fqS||||l
	LD GR5,=0
LOOP2 SRL GR4,1   ;ȉłfqOwfqSs
	JOV INCR
	JNZ CONT   ;[ȂΎ̍ss@@C
	LAD GR3,1,GR3
	LAD GR1,1,GR1
	JUMP LOOP1
INCR ADDA GR5,GR0
CONT SLL GR0,1
	JUMP LOOP2
FIN RPOP
	RET
VALUE1 DC 10,6,10
	END
;-------------------------
